home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 May
/
EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso
/
earcd
/
util
/
dir
/
managers.lha
/
Managers
/
Cli_Master
/
arc.g
next >
Wrap
Text File
|
1997-01-14
|
2KB
|
97 lines
G4C
winbig -1 -1 320 38 "CLI-Master"
wintype 11010000
winout "con:0/11/640/245/Cli-Master Output/auto/close"
xonopen
lvmulti climaster $cmst_srce first
if $cmst_mode = "lha"
setvar cmst_arc "ram:lha"
copy c:lha ram:
endif
if $cmst_mode = "lzx"
setvar cmst_arc "ram:lzx"
copy c:lzx ram:
endif
update arc.g 2 "Enter Archive Name"
setgad arc.g 1 on
xonclose
delete $cmst_arc
setvar cmst_nwname ""
update arc.g 1 $cmst_nwname
lvdir climaster $cmst_dest refresh
lvdir climaster $cmst_srce none
box 0 0 0 0 in icondrop
text 80 4 300 12 "" 20 nobox
gadid 2
xtextin 20 16 280 13 "" cmst_nwname "" 30
gadid 1
if $cmst_nwname = ""
ezreq "You MUST supply a filename." "Sorry" ""
stop
endif
joinfile $cmst_destdir $cmst_nwname cmst_arcfile
while $cmst_select > ""
cli '$cmst_arc -r -e -x a $cmst_arcfile $cmst_select'
lvmulti climaster $cmst_srce off
lvmulti climaster $cmst_srce next
endwhile
guiclose arc.g
xroutine arc_x
gosub arc.g archiver
extract cmst_destdir unquote cmst_arcdir
cutvar cmst_arcdir copy char -1 end
if $end != ":"
appvar cmst_arcdir '/'
endif
gosub arc.g arcext
if $end == $cmst_ext
cli '$cmst_arc -x x $cmst_select "$cmst_arcdir"'
lvdir climaster $cmst_dest refresh
lvdir climaster $cmst_srce none
endif
xroutine arc_v
gosub arc.g archiver
gosub arc.g arcext
if $end == $cmst_ext
cli '$cmst_arc v $cmst_select >env:.tempfile'
guiopen reader.g
delete env:.tempfile
endif
xroutine arc_t
gosub arc.g archiver
gosub arc.g arcext
if $end == $cmst_ext
cli '$cmst_arc t $cmst_select'
lvdir climaster $cmst_srce none
endif
xroutine arcext
extract cmst_select unquote cmst_file
extract cmst_file ext end
return
xroutine archiver
if $cmst_mode = "lha"
setvar cmst_arc "c:lha"
setvar cmst_ext ".lha"
endif
if $cmst_mode = "lzx"
setvar cmst_arc "c:lzx"
setvar cmst_ext ".lzx"
endif
return